Calculatrices Casio Graphiques : Jeux, programmes, cours, pompes, astuces et programmation sur calculatrice graphique Casio et ClassPad 300 : programmes casio et jeux casio...

0T
0Z
Lbl 3
1G
5C
1A
1P
0Q
25U
30V
Cls
F-Line 1,1,50,1
F-Line 1,1,1,50
F-Line 50,1,50,50
F-Line 1,50,50,50
F-Line 68,8,111,8
Green F-Line 68,9,111,9
Orange F-Line 68,10,111,10
Text 2,70,"Worm 2000"
Orange Text 55,22,"(C) Tero Siironen 1998"
Green Text 18,70,"Points:"
Green Text 25,70,"Level:"
T=3F-Line 1,15,23,15
T=2F-Line 3,15,47,15
T=3F-Line 27,35,50,35
T=1F-Line 4,25,47,25
T=3F-Line 3,25,48,25
T=1PxlChg 25,25
T=2F-Line 4,35,48,35
T=3F-Line 25,3,25,48
T=2F-Line 1,1,1,1
Lbl 1
(Int 48Ran#+1)D
(Int 48Ran#+1)E
PxlTest E,D:Ans=1Goto 1
Green PxlOn E,D
Text 18,99,Z
Text 25,99,T+1
Text 45,54,G-1
Text 45,59,"/10"
Lbl 6
Do
Getkey
If Ans
Then If Ans=27:Then 1P:0Q:IfEnd
If Ans=37:Then 0P:1Q:IfEnd
If Ans=28:Then 0P:-1Q:IfEnd
If Ans=38:Then -1P:0Q:IfEnd
IfEnd
U+P=D And V+Q=EGoto 5
PxlTest V+Q,U+P:AnsGoto 4
U+PU
V+QV
Orange PxlOn V,U
UMat W[2,A]:VMat W[1,A]
A+1B
A=(C-1)1B
Isz A
A=C1A
Orange PxlOff Mat W[1,B],Mat W[2,B]
LpWhile Getkey31
Do
Text 32,70,"PAUSED"
Text 32,70," "
Text 32,70," "
LpWhile Getkey31
Goto 6
Lbl 5
PxlOff E,D
T>0C+TGC:Z+TGZ
T=0C+GC:Z+GZ
Isz G
G=11Goto 2
Goto 1
Lbl 4
Orange Text V-1,U-1,""
Orange Text 32,70,"GAME OVER"
Text 32,66," "
Goto 7
Lbl 2
Text 33,59,"Level Completed"
Text 35,65," "
Isz T
T=4Goto 8
Do
LpWhile Getkey31
Goto 3
Lbl 8
Text 33,60,"CONGRULATIONS!"
Text 39,52,"YOU HAVE COMPLETED"
Text 45,72,"THE GAME"
Text 35,65," "
Goto 7
Lbl 7
Do
LpWhile Getkey31
1J
Prog "W2"
Stop